home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
demos
/
e-q
/
quill
/
rexx
/
listerrors.quill
< prev
next >
Wrap
Text File
|
1995-08-29
|
2KB
|
71 lines
/**
** $VER: ListErrors.quill 1.0 (22.7.94)
** By Timothy J. Aston
**
**/
/* Some setup first.
*/
options results
options failat 200
NL = d2c(10)
main:
/* We need the rexxsupport.library for this macro.
*/
if ~show(l, "rexxsupport.library") then do
if ~addlib("rexxsupport.library", 0, -30) then do
'REQUESTNOTIFY' 'Could not build project:'NL' · libs:rexxsupport.library not installed'
exit 10
end
end
/* Open the errors file.
*/
if open('errors_fh', 't:Quill_Errors', 'R') then do
/* Read all the errors into a stem.
*/
error_count = 0
do while ~eof('errors_fh')
errorfile.error_count = strip(readln('errors_fh'), 'B')
errorline.error_count = strip(readln('errors_fh'), 'B')
errorcol.error_count = strip(readln('errors_fh'), 'B')
errordesc.error_count = strip(readln('errors_fh'), 'B')
call readln('errors_fh')
call readln('errors_fh')
if errorfile.error_count ~= "" then do
errors.error_count = errorfile.error_count '-' 'Line' errorline.error_count':' errordesc.error_count
error_count = error_count + 1
end
end
errors.count = error_count
call close('errors_fh')
/* Popup the list of errors for the user to select.
*/
'REQUESTITEM' '"List of Errors and/or Warnings" STEM ERRORS'
/* If an error was selected, bring the file the error is in to the
* front, jump to the line and column of the error and set the status
* bar to the error's description.
*/
if rc = 0 then do
errornum = result
'REVEAL' errorfile.errornum
call delay(50);
'GOTOLINE' errorline.errornum
'SETSTATUSBAR' errordesc.errornum
end
end
/* Or if its not there, we have no errors.
*/
else
'REQUESTNOTIFY' '"No errors"'
exit